home *** CD-ROM | disk | FTP | other *** search
- /*
- File: ColoredCheckBox.c
-
- Contains: This app demonstrates how to create a check box on the
- gray window backgrounds.The key to this is making sure
- that the background color for the window is set.
- a 'wctb' was created using ResEdit which provides the
- gray content for the window.
-
- Written by: Larry Lai
-
- Copyright: Copyright © 1994-1999 by Apple Computer, Inc., All Rights Reserved.
-
- You may incorporate this Apple sample source code into your program(s) without
- restriction. This Apple sample source code has been provided "AS IS" and the
- responsibility for its operation is yours. You are not permitted to redistribute
- this Apple sample source code as "Apple sample source code" after having made
- changes. If you're going to re-distribute the source, we require that you make
- it clear in the source that the code was descended from Apple sample source
- code, but that you've made changes.
-
- Change History (most recent first):
- 7/19/1999 Karl Groethe Updated for Metrowerks Codewarror Pro 2.1
-
-
- */
-
- #include <Sound.h>
- #include <Fonts.h>
- #include <Windows.h>
- #include <Menus.h>
- #include <Events.h>
- #include <Resources.h>
-
- #define rColoredCheckBoxWindow 128
- #define rCheckBox 128
- #define kSoundID 128
-
- Boolean gQuit;
-
- void InitToolbox(void);
- void MyCreateColoredCheckBoxWindow();
- void DoEventLoop();
- void DoContentClick(WindowPtr, EventRecord);
- void DoCheckBox(Point, ControlHandle);
-
- void InitToolbox()
- {
- InitGraf((Ptr) &qd.thePort);
- InitFonts();
- InitWindows();
- InitMenus();
- FlushEvents(everyEvent,0);
- InitDialogs(0L);
- InitCursor();
- }
-
- void main()
- {
-
- InitToolbox();
-
- MyCreateColoredCheckBoxWindow();
-
- DoEventLoop();
- }
-
- void MyCreateColoredCheckBoxWindow()
- {
- WindowPtr myWindow;
-
- myWindow = GetNewCWindow(rColoredCheckBoxWindow, nil, (WindowPtr) -1);
- if (myWindow != nil)
- {
- SetPort (myWindow);
- GetNewControl(rCheckBox, myWindow);
- }
- else
- SysBeep(10);
-
- }
-
- void DoEventLoop()
- {
- EventRecord anEvent;
- WindowPtr evtWind;
- short clickArea;
- Rect screenRect;
-
- do{
- if (WaitNextEvent( everyEvent, &anEvent, 0, nil ))
- {
- if (anEvent.what == mouseDown)
- {
- clickArea = FindWindow( anEvent.where, &evtWind );
-
- if (clickArea == inDrag)
- {
- screenRect = (**GetGrayRgn ()).rgnBBox;
- DragWindow( evtWind, anEvent.where, &screenRect );
- }
- else if (clickArea == inContent)
- {
- if (evtWind != FrontWindow())
- SelectWindow( evtWind );
- else
- DoContentClick(evtWind, anEvent);
- }
- else if (clickArea == inGoAway)
- if (TrackGoAway( evtWind, anEvent.where ))
- gQuit = true;
- }
- else if (anEvent.what == updateEvt)
- {
- evtWind = (WindowPtr)anEvent.message;
- SetPort( evtWind );
-
- BeginUpdate( evtWind );
- UpdateControls(evtWind, evtWind->visRgn);
- EndUpdate (evtWind);
- }
- }
- }while (!gQuit);
- }
-
-
- void DoContentClick(WindowPtr theWindow, EventRecord theEvent)
- {
- Point mouse;
- ControlHandle control;
- short part;
-
- SetPort(theWindow);
- mouse = theEvent.where; /*Get the mouse location*/
- GlobalToLocal(&mouse); /*convert to local coordinates*/
- part = FindControl(mouse, theWindow, &control);
-
- if(part == kControlCheckBoxPart)
- DoCheckBox(mouse, control);
-
- }
-
- void DoCheckBox(Point mouse, ControlHandle control)
- {
- short checkbox;
- Handle theSound;
-
- if (TrackControl(control, mouse, nil)) /*user clicks checkbox*/
- {
- checkbox = GetControlValue(control); /*get last value of checkbox*/
- checkbox = 1- checkbox; /*toggle value of checkbox*/
- SetControlValue(control, checkbox); /*set checkbox to new value*/
- if(checkbox == 1) /*express yourself next time user clicks the checkbox*/
- {
- theSound = GetResource('snd ', kSoundID);
- if (theSound != nil) {
- SndPlay(nil, (SndListHandle)theSound, false);
- ReleaseResource(theSound);
- }
- }
- }
- }
-